
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Namespace _2bMatesSite
	''' <summary>
	''' Summary description for help_groups.
	''' </summary>
	Public Partial Class help_groups
		Inherits System.Web.UI.Page
		Protected htPageConstants As New Hashtable()

		Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
			' Put user code to initialize the page here
			litPageTitle.Text = PageTitles.GROUPS_HELP_PAGE

			Dim bp As New BaseWebPage()
			bp.initPageTitles(Constants.HELP_GROUPS, Constants.XML_FILE_LTEXT_PATH, Nothing, Me, htPageConstants)
			bp.initAdvertisements(Nothing, Me)

			Dim pageParam As String = Request.Params(Constants.GROUP_HELP_PAGE_PARAM)
			Dim pageParamID As Integer = -1

			If pageParam = Nothing OrElse pageParam = "" Then
				Throw New Exception(Constants.ERROR_MESSAGE_MISSING_PARAMETERS)
			End If

			Try
				pageParamID = Convert.ToInt32(pageParam)
				Select Case pageParamID
					Case Constants.GROUP_HELP_PAGE_PUBLIC_VALUE
						litTitle.Text = bp.GetPageConstText(htPageConstants, "CONST_Title1_TEXT")
						lblHelpText.Text = bp.GetPageConstText(htPageConstants, "CONST_Help1_TEXT")
						Exit Select
					Case Constants.GROUP_HELP_PAGE_APP_MEM_COMM_VALUE
						litTitle.Text = bp.GetPageConstText(htPageConstants, "CONST_Title2_TEXT")
						lblHelpText.Text = bp.GetPageConstText(htPageConstants, "CONST_Help2_TEXT")
						Exit Select
					Case Constants.GROUP_HELP_PAGE_APP_MEM_BLOG_COMM_VALUE
						litTitle.Text = bp.GetPageConstText(htPageConstants, "CONST_Title3_TEXT")
						lblHelpText.Text = bp.GetPageConstText(htPageConstants, "CONST_Help3_TEXT")
						Exit Select
					Case Constants.GROUP_HELP_PAGE_PRIVACY_SETTINGS_VALUE
						litTitle.Text = bp.GetPageConstText(htPageConstants, "CONST_Title4_TEXT")
						lblHelpText.Text = bp.GetPageConstText(htPageConstants, "CONST_Help4_TEXT")
						Exit Select
					Case Constants.GROUP_HELP_PAGE_GROUP_TYPE
						litTitle.Text = bp.GetPageConstText(htPageConstants, "CONST_Title5_TEXT")
						lblHelpText.Text = bp.GetPageConstText(htPageConstants, "CONST_Help5_TEXT")
						Exit Select
				End Select
			Catch
				Throw New Exception(Constants.ERROR_MESSAGE_MISSING_PARAMETERS)
			End Try
		End Sub

		#region Web Form Designer generated code
		Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub

		''' <summary>
		''' Required method for Designer support - do not modify
		''' the contents of this method with the code editor.
		''' </summary>
		Private Sub InitializeComponent()

		End Sub
#End Region
	End Class
End Namespace






